* net/ange-ftp.el (ange-ftp-cf1): Update the files cache.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26379d241abd06498912a70c61c4424610e3e337..0dae8ebdd7066bcb9ba1485ef8e326f4f2b3ac9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-11  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.
+
 2012-07-11  Chong Yidong  <cyd@gnu.org>
 
        * vc/log-edit.el (log-edit-vc-backend): New variable.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1d06a7fa72924c6a4e8788f1f5e9ffe362d32609..dd695c29c78729a25e2d54d65f4d8d2facf582dc 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3793,7 +3793,8 @@ so return the size on the remote host exactly. See RFC 3659."
                   (format "Copying %s to %s" f-abbr t-abbr)))
             (list 'ange-ftp-cf2
                   newname t-host t-user binary temp1 temp2 cont)
-            nowait))
+            nowait)
+           (ange-ftp-add-file-entry newname))
 
        ;; newname wasn't remote.
        (ange-ftp-cf2 t nil newname t-host t-user binary temp1 temp2 cont))